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1. INTRODUCTION 

The concept of groupoid has introduced by H. Brandt [Math. Ann. 96, 
360 -366 ( 1926; JFM 52.0110.09 )]. A groupoid is an algebraic structure 
determined by a partially composition law and a nonempty set of units. 
In the language of categories, a groupoid is a small category in which all 
morphisms are invertible. For more details and references about groupoids 
the reader can be consult the papers ( [l]-[3], [6]- [8]). 

The plan of this paper is as follows. In the first section we give some 
preliminary concepts concerning groupoids. In the second section we present 
an algorithm for finding the subgroupoids of a groupoid. This algorithm is 
implemented on computer and we obtain the program BGroidAP2. This 
program has published in [4; Zbl 1109.20310]. In the Section 3 and Section 
4 we give the programs BGroidAP2> and BGroidAPA for to determine the 
wide subgroupoids resp. the normal subgroupoids of a finite groupoid. We 
illustrate the utilization of these programs on some finite groupoids. 

The programs exposed in this paper represent an essential tool for the 
study of finite groupoids. 



2. CLASSES OF SUBGROUPOIDS 

Let (G, Go) be a pair of nonempty sets with Go ^ G, endowed with the 
surjections a, (3 : G ^ Gq, called the source and the target map, respectively, 
a ( partial ) composition law fj. : G(2) — ^ G, {x,y) — > fi{x,y), where G(2) = 
{{x,y) G G X G\(3{x) = a{y)} and an injection t : G — > G, x — > i{x) called 
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the inversion map. Wc write sometimes x ■ y or xy for ijl{x, y) and x ^ for 
i{x). The elements of G(2) ^re called composahle pairs of G. 

DEFINITION 2.1. ([4]) (i) The 5-tuple {G, a, /3, ^u; Go) is a semigroupoid, 
if the composition law is associative, i.e. = x{yz), for all x,y,z G G 

such that the products (xj/)2; and x(y2;) are defined. 

(ii) A monoidoid is a semigroupoid {G,a, /3, iJ,;Go) such that the irfen- 
iiiies property holds, i.e. for each x € G we have {a{x),x), {x,P{x)) G G(2) 
and a(x)x = xl3{x) = x. 

(Hi) The 6- tuple (G, a, j3, fj,, l; Gq) is a groupoid or a Gg-groupoid, if 
(G, a, /3, /x; Gq) is a monoidoid such that the inverses property holds, i.e. for 
each a; G G we have {x~^,x), {x, x~^) G G(2) and x~^x = I3{x),xx~^ = a{x). 
□ 

Remark 2.1. The definition of the groupoid is equivalent as the one used 

in the paper ([2]). □ 
The element a{x) [resp. ] denoted sometimes by ui{x) [ resp. Ur{x)] 
is the left unit [ resp. right unit] of x E G. The set Gq is called the unit 
set of G. A Go-groupoid G will be denoted by {G,a,/3; Go) or (G; Go). The 
maps a, /3, fi and l are called the structure functions of G. 

If (G, a, /3; Gq) is a groupoid, then the following properties hold (see [3]): 
(l)a(tt) = I3(u) = u,u ■ u = u and i(u) = u for all u G Go; 
{2)a{xy) = a{x) and P{xy) = P{y), (V)(a;,y) G G(2); 

(3) a(x-i) = /3(x),/3(x-i) = a{x) for all x G G; 

(4) G(ii) = {x G G|a(x) = /3(x) = is a group under the restriction of /j, to 
G(it), called the isotropy group at u oi G. □ 

Example 2.1. (i) A group G having e as unity, is just a {e}- groupoid 
in the following way: the maps a, /? : G ^ Gq and i : G — )■ G are given 
by a{x) = P{x) = e, l{x) = x~^ for all x G G; for all x,y E G the element 
X • y is the product of elements x and y in the group G. Conversely, every 
groupoid G with one unit is a group. 

(ii) The nul groupoid over a set. Any nonempty set X may be regarded 
as a groupoid on itself with the groupoid structure : G = Gq = X,a = jS = 
i = Idx', x,y E X are composable iff x = y and we define x • x = x. □ 

Example 2.2. (i) The groupoid 3'inj{S,X). For a nonempty set X denote 
by 3'inj{S,X) = {f : S ^ ^|(V)5,0 ^ 5 C X,/is injective}. For / G 
Jinj{S,X), let D{f) be the domain of / and let R{f) = f{D{f)). For G = 
^inj{S,X), let G(2) = {{f,g) G G x G\R{f) = D{g)] and for {f,g) G G(2) 
define g) = g o f. If Ids denotes the identity map on S, then Go = 
{1(^5 10 ^ S C X} is the set of units of G. The maps a,/? : G — )■ Gq and 
i : G ^ G are defined by a{f) = IdD{f),P{f) = IdR(f) and t(/) = /"^ 
Thus 3^injiS, X) is a groupoid, called the groupoid of injective functions from 
the nonempty sets S of X into X. 

In particular, if X = {1, 2, . . . , n}, the groupoid of the injective functions 
defined on the subsets of {1,2, ... ,n} is called the symmetric groupoid of 
degree n and is denoted by S„; for several properties of see [5]. 
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(ii) Let Oxy be a system of cartesian coordinates in a plane. We consider 
the subsets Ox = {(x,0) G R^[(V)a; € R} and Oy = {(0,y) G R^|(V)j/ € R} 
oi X = R2. Let G = {/i = Idoxj2 = Idoy,h = crOxJi = ^^Oy} C 
9"mi('S', R^) where /a : Ox ^ Oy,fi : Oy — >■ Ox are defined by /3(x,0) = 
(0, x) and /4(0, y) = {y, 0) {aox resp. aoy is called the saltus function defined 
on X -axis resp. y-axis ). 

For the composable pairs of G, the map ^ is defined by: /i) = /i; 

KhJs) = h° h = h; Kf2j2) = h\ m(/2,/4) = Ja; At(/3,/2) = /s; 
KIsJa) = /i; Ai(/4,/i) = A; m(/4,/3) = /2- 

The unit set of G is Oq = {/i = Idox,f2 = Idoy} and a,/? : G — >■ 
Go, i : G ^ G are given by a{fj) = (3{fj) = i{fj) = fj for j = 1, 2; a(/3) = 
^(/4) = /i; a(/4) = /3(/3) = /2; 4/3) = /4 and i(/4) = /3. It is easy to verify 
that (G; Go) is a groupoid, denoted by 9^(4.2) (R^) and called the groupoid of 
saltus functions defined on the axes of coordinates in a plane. □ 

Example 2.3. If {Gj|i G 1} is a disjoint family of groupoids, let G = 
Uig/Gi,G(2) = Uie7Gj^(2) and Gq = Uje/Gj^o, where Gi,o is the unit set of 
Gj. Here, x, y G G may be composed iff they lie in the same groupoid Gi 
and they are composable in Gj. This groupoid is denoted by Uje/ ^^'^ 
is called the disjoint union of groupoids Gi,i € I. In particular, the disjoint 
union of groups Gj, i G / is a groupoid. □ 

A finite Gq— groupoid G such that |G| = n and |Go| = m is called 
(n; m)— groupoid or finite groupoid of type (n; m). We will sometimes denote 
a finite groupoid of type {n;m) by G(n-jn)- 

Example 2.4- (i) Each finite groupoid of type (n; 1) is a group. 

(a) Each finite groupoid of type (n; n) is a nul groupoid. 

(Hi) The groupoid 3"(4.2)(R^) is a (4; 2)— groupoid. □ 

DEFINITION 2.2. (i) Let (G,a,^;Go) be a groupoid. A pair {H;Ho) 
of nonempty sets such that H C G and Hq C Go is a subgroupoid of G, if the 
following conditions hold: {l)a{H) = fS{H) = Hq; (2) for all x,y E H such 
that xy is defined, we have xy G H and (3) for all x G H, we have x~^ G H. 

(ii) A subgroupoid {H]Ho) of a Gq— groupoid G with property that 
Hq = Go is called wide subgroupoid of G. 

(mz) a wide subgroupoid {H; Gq) of a groupoid (G; Go) is called a normal 
subgroupoid of G, if for all x G G and h E H such that the product xhx"^ 
is defined, we have xhx^^ G H. □ 

The intersection of any collection of subgroupoids of a groupoid is itself a 
subgroupoid of that groupoid. If G is a Go— groupoid and X is a nonempty 
subset of G, then the intersection of all subgroupoids of G which contain X 
is a subgroupoid, denoted by < X > and called the generated subgroupoid 
of G by X. 

Example 2.5. (i) In a group G, every subgroupoid (in fact, subgroup) is 
a wide subgroupoid and conversely. 

(ii) If G is a Gq- groupoid, then Gq is a normal subgroupoid of G, called 
the nul subgroupoid of G. 
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(m) Let be the Klein 4-group = {(l),a = (12)(34),r = (13)(24),a o 
r = (14)(23)} C 5*4 ( it is a subgroup of the symmetric group 5*4 of de- 
gree 4). We have cr^ = = (1) and t o a = got. We consider the 
disjoint union G = 1^4 ]J 9"(4.2)(R^) of the group K/^ with the groupoid 
3^(4;2)(R'^) given in Example 1.2 (ii). We have that G = {(1), r, cr o r, /i = 
Idox,f2 = IdoyJz = cFOxJi = cFOy} is a Gq- groupoid of type (8; 3), 
where Go = {(l),/i,/2}. It is easy to verify that and 3"(-4.2)(R^) are 
subgroupoids of G. Also, Ni = A"4lI{/i,/2} and N2 = {(1)} U %2)(R^) 
are wide subgroupoids of G. Moreover, Ni and N2 are normal subgroupoids 
of G. □ 



3. ALGORITHM FOR DETERMINATION OF 
SUBGROUPOIDS. THE BGroidAP2 PROGRAM 

We consider a given finite universal algebra (G, a, /3, /x, i; Go) such that 
|G| = n and |Go| = m with 1 < m < n. We denote the elements of G by 
01,02,- •• ,am,am+i, - ■ ■ ,an such that Go = {ai,a2,-- - ,0^}- 

We give an algorithm for decide if the universal algebra (G, a, /3, l; Go) 
is a Go- groupoid and for determine the subgroupoids of G. This algorithm 
is constituted by the following stages. 

Stage I. We introduce the initial data: n = \G\,m = \Gq\; the functions 
a,l3,L and /j, given by its tables of structure. 

Stage II. Test if the universal algebra (G, a, /3, t; Go) is a groupoid. 
For this, the following steps arc executed: 

step 1. (G, a, f3, fi, l; Go) is a structure well-defined, i.e. a, P are surjections, 

L is injective and jj, is defined on G(2) with values in G; 

step 2. {G,a, P, fi;Go) is a semigroupoid; 

step 3. the semigroupoid (G, a, /?, /x; Go) is a monoidoid; 

step 4. the monoidoid {G,a, /S, n;Go) is a groupoid. 

step 5. If the above steps are satisfied, make the tables of the structure 
functions a,l3,L and /x and write the message "G is a groupoid". 

Stage HI. Determine the subgroupoids of G. The following steps must 
be executed: 

step 1. Write all nonempty subsets X of G; 

step 2. Determine the subgroupoid < X > of G generated by X; 
step 3. Sort by cardinal all subgroupoids determined in the step 2; 
step 4. List the subgroupoids produced in the above step; 
step 5. For each subgroupoid make its subgroupoid table. 

Let us we present the correspondence between the initial data and input 
data: 
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G — {ai, 02, am, Om+l) • ■ 

Initial data 
\G\=n 
\Gq\ = m 



.On} 



i — > {1, 2, . . . , m, m + 1, . . . , n} 
i — > Input data 

i — > n 
< — ^ m 





ai 












a{ak) 


ai 






"(flm+l) 




a(a„) 


/3(afc) 


Ol 




Q-m 


/5(am+i) 




/5(a„) 


i{ak) 


Ol 






'■(Om+l) 




i(a„) 



< — )• 













































a J ■ ai^. 


















On 













< — > 



an 

(121 

aji 



m ui{m+ 1) ■ ■ ■ ui{n) 
m Ur{m + 1) ■■■ Ur{n) 
m inv{m + !)••• inv{n) 



«2fe 
O'jk 



0-ln 
0-2n 



The absence of an clement from the arrow "j" and the column "A:" of the 
table of /i indicates the fact that the pair {cj, ak) G G x G is not composable. 
The element ajk = fJ'iaj, ak) is represented by in the table of input data, 
if the product aj • ak is not defined. 

Example 3.1. Let the groupoid G = -^^4 ]J 9'(4.2)(R^), see Example 2.5 
(iii). We have G = {ai = (l),a2 = /i,a3 = f2,CL4 = 05 = r, ag = 
(7 o T, 07 = /3, as = fi} and the correspondence between the initial data and 
input data are the following: 

G = {01,02,03,04,05,06,07,08} < — > 

Initial data < — > 

\G\=8 ^ 

|Go|=3 < — > 



{1,2,3,4,5,6,7,8} 
Input data 



ak 


Oi 


0.2 


03 


04 


05 


06 


07 


08 


a{ak) 


Oi 


0-2 


03 


Ol 


Ol 


Ol 


O2 


O3 


P{ak) 


01 


02 


as 


01 


Ol 


Ol 


03 


a2 


L{ak) 


Ol 


02 


03 


04 


05 


06 


08 


07 



12 3 1112 3 
12 3 1113 2 
1 2 3 4 5 6 8 7 





Ol 


0.2 


03 


04 


05 


Og 


O7 


08 




















Ol 


Ol 






04 


05 


06 








1 








4 


5 


6 








a2 




02 










O7 









2 














7 





03 






as 










08 










3 














8 


04 


O4 






Ol 


0.6 


05 








4 








1 


6 


5 








«5 


"5 






fl(. 


«1 


"i 








5 








6 


1 


4 








06 


Oq 






05 


O4 


Ol 








6 








5 


4 


1 








07 






07 










02 










7 














2 


08 




as 










as 
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The implementation of the above algoritiim on computer is realized in 
the program BGroidAP2, which is composed from two modules denoted 
by unit21.dfm and unit21.pas. The module unit21.pas is consists from the 
principal program followed of procedures and functions. 

The principal program of the module unit21.pas is constituted from the 
following lignes. 





Ligncs 


The uiodulc iiiiU21.pas 




001 


unit Unitl; 




002 


interface 




003 


uses 




004 


Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, Grids, DBGrids, ShellAPI, Db, DBTables, 
StdCtrls, Menus, ExtCtrls, ComCtrls, ToolWin, Spin; 




005 


const 




006 


nmax = 200; 




007 


type 




008 


TSubSet = Set of Byte; 




009 


TForml = class (TForm) 




010 


MainMenul: TMainMenu; 




Oil 


Filel: TMenuItem; 




012 


OpenFilel: TMenuItem; 




013 


SaveFilel: TMenuItem; 




014 


GroupBoxl: TGroupBox; 




015 


StringGridl: TStringGrid; 




016 


StringGrid2: TStringGrid; 




017 


GroupBox2: TGroupBox; 




018 


StringGrid3: TStringGrid; 




019 


StringGrid4: TStringGrid; 




020 


OpenDialogl: TOpenDialog; 




021 


SaveDialogl: TSaveDialog; 




022 


Splitter 1: TSplitter; 




023 


Splitter2: TSplitter; 




024 


ToolBarl: TToolBar; 




025 


ToolBar2: TToolBar; 




026 


Splitter4: TSplitter; 




027 


ToolButtonl: TToolButton; 




028 


ToolButton2: TToolButton; 




029 


Newl: TMenuItem; 




030 


ToolBar3: TToolBar; 




031 


ToolButton4: TToolButton; 




032 


ToolButtonS: TToolButton; 




033 


Label2: TLabel; 
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Lignes 


The module unit21.pas 




034 


SpinEditl: TSpinEdit; 




035 


ToolButton6: TToolButton; 




036 


Label3: TLabel; 




037 


SpinEdit2: TSpinEdit; 




038 


SflvPsnHpTniiDoirl 1 * TA/TpTinTf.pm* 




039 


StatusBarl: TStatusBar; 




040 


StatnaBar2- TStatusBar- 




041 


ToolButton3: TToolButton; 




042 


ToolButtonll: TToolButton; 




043 


procedure ForniSliow(Sender: TObjcct); 




044 


procedure ButtonlClick(Sender: TObject); 




045 


procedure Button2Click(Sender: TObject); 




046 


procedure StringGridlSetEditText(Sender: TObject; 






ACol,ARow: Integer: const Value: String); 




047 


procedure StringGrid2SetEditText(Sender: TObiect; 






ACol, ARow: Integer; const Value: String); 


■k 


048 


procedure OpenFilelClick(Sender: TObject); 




049 


nrocpdnrp SavpEilel Glirkl SpuHpt" TObiPct, V 




050 


procedure StringGrid3SelectCell(Sender: TObject; ACol, 






ARow IntPEfpr' var OanSelect' BooleanV 




051 


nroppHnrp ?*Jpwl (^liW ( Spnrl pr' TOli iprt, i ' 


-k 


052 


procedure ToolButton4Click(Sender: TObject); 




053 


nrorpHnrp SavpsnHpTniiDoid 1 (HlirWi SpnHpr* TOH ipct, i * 

^X V_/ V_ V_X LAX V_ CIj V O LA k-f^X \J LAJ-fV/AVJ. -X V_/X±VjX\. I k_"-/XXVJ.'-/X • _L ^ J / ? 


-k 


054 


procedure ToolButton3Click(Sender: TObject); 




055 


r>ri v^l t,P 

l_/X X V Cli U 




056 


ForcedStop : Boolean; 




057 


err_message : String; 




058 


subgr : array[l.. 10000] of TSubSet; 




059 


units SelectedSub ■ TSubSet- 




060 


m Ti Tisnb ■ Tntpp'pr' 

XXX^ 5 XXOLXI—* • AXX L V-^^^-'X ^ 




061 


h : array[0..nmax, 0..nmax] of Byte; 




062 


uJeft, u_riglit, inv : array[0..ninax] of Integer; 


•k 


063 


procedure WMDropFiles(var Msg: TWMDropFiles) ; 






message WM_DROPFILES; 




064 


procedure PerformFileOpen(const FileNamel : string); 




065 


procedure PerformFileSave(const FileNamel : string); 




066 


procedure PcrformSavcSubgToupoid(t : TSubSet; 






const FileNamel : string); 




067 


procedure MakeUnitsTable; 




068 


procedure MakeGroupoidTable; 




069 


procedure MakeSubgroupoidTable(t : TSubSet); 




070 


function ToStr(x : Integer) : String; 
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Lignes 


The module unit21.pas 




071 


fnnrtinn SnbsetT'oStrinp'l t ■ TSnbSpf,) ■ Strinp" 




072 


fnnrtinn (~!arrliTial 1 1, * TSnhSet.) ■ Rvte* 




073 


procedure Cover (var t : TSubSet); 




074 


function AlreadyFound(t : TSubSet) ; Boolean; 




075 


nrocedure AddSubp'rounoidit ■ TSubSetV 




076 


nvopprliTrp ("rPTipratpSnhpTonnoiHsi t * TSnliSpt' r ' T^vtp i ■ 




077 


nvorprlnvp SnrtT^v(^arrlinal * 




078 


procedure ListSubgroupoids; 


ir 


079 


function IsStructure : Boolean; 


■k 


080 


function IsSemigroupoid : Boolean; 




081 


function IsMonoidoid i Boolean; 




082 


function IsGroupoid : Boolean; 




083 


Dublir 

yj yjL \^ 




084 


end; 




085 


var 




086 


For ml: TFornil; 




087 


i TTl D 1 P TTl P Tl t a 1 1 o n 




088 


{$R *.DFM} 




089 


DrorpH nrp TForm 1 Fovm SViowf Spnrlpr" TOh iprt, i * 




090 


var 




091 


i i ■ Bvte" 




092 


begin 




093 


l^ra.j?' Accent FilesiMa.ndle True i * 




094 


iStTin FfCrrirl 1 FHitorlVTorlp '= TVnp* 

t_7 UX XAX^ VJ X X\J. J. . J — ^»^X U WX XVXWVJ-Vj • -I- X LXVv j 




095 


n := 0; 




096 


III ! = O5 




097 


for i "=0 to nma'^c Ho 

XV_^X X • \J \->\j XXXXXC^fjA. v_x v_y 




098 


TOT" 1 • — D to ■mnav no 

XWX J • \J \j\J XXXXXClW V X V.7 




099 


hfi,jl:= 

L "J J 




100 


for i := to nmax do begin 




101 


u_left[i] := 0; 




102 


u_right[i] := 0; 




103 


inv[i] := 0; 




104 


end; 




105 


nsub := 0; 




106 


SelectedSub := [ ] 




107 


end; 




108 


end. 



The procedures and functions marked by the symbol " * " can be find 
in [4] or in the preprint arXiv:math/0602604vl [math GR]. The other pro- 
cedures and functions contained in the module unit21.pas are presented in 
the follows. 
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procedure TForml. Cover; 
var 

i, j : Byte; 
modif : Boolean; 

begin 
repeat 

modif := false; 
for i := 1 to n do if i in t then begin 
if not (inv[i] in t) then begin 
modif := true; 
t := t + [inv[i]] 
end; 

for j := 1 to n do if j in t then 
if u_right[i] = uJeft[j] then 

if not (h[i, j] in t) then begin 
modif := true; 
t := t + [h[i, j]] 

end 

end 

until not modif 
end; 

function TForml. Cardinal; 
var 

i, nr : Byte; 

begin 

nr := 0; 
for i := 1 to n do 

if i in t then 

nr := nr + 1; 
Cardinal := nr; 
end; 

function TForml. SubsetToString; 
var 

s : String; 
i : Byte; 
begin 

s := '{'; 
for i := 1 to n do 
if i in t then 

s := s + {'a' +} tostr(i) + ', '; 
delete(s, length(s)-l, 2); 
s := s + '}'; 
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SubsetToString := s; 
end; 

procedure TForml.AddSubgroupoid; 
begin 

nsub := nsub + 1; 
subgr[nsub] := t; 
if nsub = 3000 then 

ForcedStop := true; 

end; 

function TForml. Already Found; 
var 

i : Integer; 

begin 

Already Found := False; 
for i := 1 to nsub do 

if t = subgr[i] then 

AlrcadyFound := True; 
if t = [ ] then 

Already Found := True 

end; 

procedure TForml. GenerateSuhgroupoids; 
var 

i : Byte; 

begin 

Cover (t); 

if not AlrcadyFound (t) then 
AddSubgroupoid(t); 
for i := r to n do 

if not (i in t) then 

if not ForcedStop then 

GenerateSuhgroupoids (t + [i], i); 

end; 

procedure TForml. SortBy Cardinal; 
var 

i, j : Integer; 
aux : TSubSet; 
begin 

for i := 1 to nsub - 1 do 
for j := i + 1 to nsub do 

if Cardinal(subgr[i]) > Cardinal(subgr[j]) then begin 
aux := subgr[i]; 
subgr[i] := subgrp]; 
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subgrp] := aux 
end 

end; 

procedure TForml . ListSubgroupoids; 
var 

i : Integer; 

begin 

StringGridS.RowCount := nsub; 
for i := 1 to nsub do 

StringGrid3.Cells[0, i - 1] := SubsetToString(subgr[i]) 

end; 

procedure TForml . PerformSaveSubgroupoid; 
var 

f : TextFile; 
i, j, ordin, nunits : Byte; 
sir, ind : array [l..nmax] of Byte; 
begin 

ordin := 0; 

for i := 1 to n do 

if i in SelectedSub then begin 
ordin := ordin + 1; 
sir [ordin] := i; 
ind[i] := ordin 
end; 

nunits := cardinal(SelectedSub * units); 

AssignFile(f, FileNamel); 
rewrite(f ) ; 
writeln(f, ordin); 
writeln(f, nunits); 
writeln(f); 

for i := 1 to ordin do 

write(f, ind[uJeft[sir[i]]], ' '); 

writeln(f); 

for i := 1 to ordin do 

write(f, ind[u_right[sir[i]]], ' '); 
writeln(f); 

for i := 1 to ordin do 

write(f, ind[inv[sir[i]]], ' '); 
writeln(f); 
writeln(f); 

for i := 1 to ordin do begin 
for j := 1 to ordin do 
write(f, ind[h[sir[i], sirp]]], ' '); 
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writeln(f); 

end; 

CloseFile(f) 
end; 

procedure TForml . MakeSubgroupoidTable; 
var 

ordin, i, j : Byte; 

sir : array [L.nmax] of Byte; 

begin 

ordin := 0; 

for i := 1 to n do 

if i in t then begin 
ordin := ordin + 1; 
sir [ordin] := i 
end; 

StringGrid4.RowCount := ordin + 1; 
StringGrid4.ColCount := ordin + 1; 
for i := 1 to ordin do begin 

StringGrid4. Cells [0, i] := tostr(sir[i]); 
StringGrid4.Cells[i, 0] := tostr(sir[i]) 

end; 

for i := 1 to ordin do 

for j := 1 to ordin do 

if h[sir[i], sir[j]] <> then 

StringGrid4.Cells[j, i] := tostr(h[sir[i], sir|j]]) 

else 

StringGrid4.Cellsp, i] := " 

end; 

procedure TForml. SavesubgroupoidlClick(Sender: TObject); 
begin 

if SelectedSub <> [ ] then 

if SaveDialogl. Execute then 

PerformSaveSubgroupoid(SelectedSub, SaveDialogl. FileName) 

else 

else Application. MessageBox('No subgroupoid selected.', ", mb_OK) 
end; 

procedure TForml. StringGridSSelectCellfSender: TObject; ACol, 

ARow: Integer; var CanSelect: Boolean); 
begin 

MakeSubgroupoidTable(subgr[ARow + 1]); 
SelectedSub := subgr[ARow + 1] 
end; 
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procedure TForml.ButtonlClick(Sender: TObject); 
begin 

nsub := 0; 

ForcedStop := false; 
GenerateSubgroupoids([ ], 1); 
SortByCardinal; 

ListSubgroupoids; 

StatusBar2. SimpleText := tostr(nsub) + ' subgroupoid(s) found.' 

end;. 

We illustrate the utilization of the program BGroidAP2 in the following 
cases. 

Example 3.2. Determination of subgroupoids of a groupoid of type (8; 2). 
We consider the subset G(^.2) = {9j\3 = 1)8} of the symmetric groupoid 

§3 ( see [5] ), where: gi = i \ M , c/2 = 



1 2 

12\ /12\ /13 
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)■ 


> 97 


-{\ 


1 


I 


58 



54 = 1 ^ 3 J , 55 = 1^ 3 1 j , 56 ^ 2 

1 3 

3 1 

We denote the restrictions of the structure functions a, and the com- 
position law defined on the groupoid S3 to G(8;2) by the same symbols. Using 
the correspondence 

G'(8;2) = {51,52,53,54,55,56,57,58} < — > {1,2,3,4,5,6,7,8} 
the input data are given by the following tables: 



3 4 5 

6 7 8 

1 5 4 
1 3 5 
3 1 4 
7 2 8 
6 8 2 
7 6 2 

Execute the program BGroidAP2 for G(8;2) and the window program of 
obtained results is presented in the Figure 1. 

Therefore, G(g.2) is a groupoid with unit set G(8.2)^o = {51,52} and it 
has 11 subgroupoids ( see. Fig. 1 ). Using the initial data and input data 
for this groupoid, the correspondence between output data and final data is 
the following : 



1 

8 2 

2 3 
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12111222^ 

12 12 2 112 
12367458^jj 

8 
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BGroidflPZ 



-'Strucfufer- 



Test Groupoid 



2 1 1 



1 12 



1 \t 



3 



2 12 



r is 



3 4 5 



G.is a groupoid 



"SubgroupoidS" 



Find all subgroupoids 




{1,2, 5, 7} 



{1,2, 3, 8} 



{1,2, 3, 4, 5,6,7,8} 



11 subgroupoid(s;) Found, 



Figure 1: The subgroupoids of a (8; 2)— groupoid 



Output data 




— > Final 


{1},{2} 


< 


^(l;l) 


{1,2} 


< 


. EJ3 

' (2;2) 


{1,3}, {2, 8} 


< 


^ ^(2;1) 


{1,2,3}, {1,2 


8} < 


^ ^(3;2) 


{1,2,3,8} 


< 


' ^(4;2) 


{1,2,4,6} 


< 


> ^(4;2) 


{1,2,5,7} 


< 


' ^(4;2) 


{1,2,3,4,5,6, 


7,8} < 


s ffll 

(8;2) 



{5l},//fi;l)={52} 
{51,52} = G(8.2),o 
{5l,53},^^f2;l) = te,58} 

{5i,52,53},-H'(3.2) = {51,52,53} 

{51,52,53,53} 
{51,52,54,55} 
{51,52,55,57} 
G'{8;2) 
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4. DETERMINATION OF WIDE SUBGROUPOIDS. THE 
BGroidAP3 PROGRAM 

Wc give an algorithm for decide if the universal algebra {G, a, (3, /x, l; Gq) 
is a Gq- groupoid and for determine the all wide subgroupoids of G. This 
algoritm is constituted by the following stages. 

Stage I. We introduce the initial data, see Section 2. 

Stage II. Test if the universal algebra {G,a, /3, ij,,l;Go) is a groupoid. 
This stage is composed by five steps; see, Section 2. 

Stage III. Determine the all wide subgroupoids ofG. The following steps 
must be executed: 

step 1. Write all nonempty subsets X of G with property that Gq ^ X; 
step 2. Determine the subgroupoid < X > of G generated by X; 
step 3. Sort by cardinal all wide subgroupoids determined in the step 2; 
step 4. List the wide subgroupoids produced in the above step; 
step 5. For each wide subgroupoid make its subgroupoid table. 

This algorihtm is implemented on computer and we obtain the program 
BGroidAP3, which is composed from two modules denoted by unit31.dfm 
and unitSl.pas. 

The principal program of the module unitSl.pas consists from the fol- 
lowing lignes. 



Lignes 


The module unitSl.pas 


001 - 027 
028 - 036 

037 
038 - 043 
044 - 051 

052 
053 - 107 

108 


the lignes 001 - 027 of the module unit21.pas; 
the lignes 029 - 037 of the module unit21.pas; 

ToolButton7: TToolButton; 
the lignes 038 - 043 of the module unit21.pas; 
the lignes 045 - 052 of the module unit21.pas; 

procedure Button7Click(Sender: TObject); 
the lignes 053 - 107 of the module unit21.pas; 
end. 



The new procedure of the module unitSl.pas is presented in the follows. 

procedure TForml.ToolButton7Click(Sender: TObject); 
begin 

nsub := 0; 
ForcedStop := false; 
GenerateSubgroupoids(units, m + 1); 
SortByCardinal; 

ListSubgroupoids; 

StatusBar2. SimpleText := tostr(nsub) + ' subgroupoid(s) found.' 

end;. 

We illustrate the utilization of the program BGroidAPS in the following 
cases. 
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Example 4-1- Determination of wide subgroupoids of a disjoint union of 
two groupoids. Let the groupoid G = ]J 9"(4.2)(R^) and use the inputs 
data presented in the Example 3.1. 

Execute the program BGroidAPS for G and the window program of 
obtained results is presented in the Figure 2. 
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10 subgroupoid(s) found, 



Figure 2: The wide subgroupoids of a (8; 3)— groupoid 

Therefore, this groupoid has 10 wide subgroupoids ( see, Fig. 2 ). Us- 
ing the correspondence between output data and initial data, its wide sub- 
groupoids are the following : ^^(3.3) = Go, 1^(4.3) = {i^), Idox, Idoy, o'}, 
^(4;3) = {{l),IdoxJdoy,T}, = {{l),Idox,Idoy,a o t}, l^J.g^ = 

{{l),ldoxjdoy,crox,croy}, W^fg.g) = {{I), Idox, Idoy,(T,T,a o t}, W^^.^^ = 

{{l),Idox,Idoy,(T,(TOx,Croy}, ^(6;3) = {{'^) , Idox , Idoy , T, ffQx, (^Oy} , ^(6;3) 
= {{l),IdoxJdoy, (TOT, aox,croy}, W^s-,i) = -^4 LI 3'(4;2)(H-^)- 
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Applying program BGroidAP2, we obtain that G has 29 subgroupoids. 

Example Determination of wide subgroupoids of a groupoid of type 
(8; 2). Let the groupoid G(8.2) = {gj\j = 1,8} given in Example 3.2. Use 
the inputs data presented in the Example 2.2 and execute the program 
BGroidAPS. We find that this groupoid has 7 wide subgroupoids, namely: 

^(2;2) = ^(8;2),0> ^(|;2) = {9l,92,gs}, W(3;2) = {91,92,98}, W(4;2) = {9l,92, 
93,98}, W^(4.2) = {91, 92,94, 9e}, ^^(4.2) = {91,92,95,97}, W^^.^^ = <^(8;2) • ° 

5. DETERMINATION OF NORMAL SUBGROUPOIDS. THE 
BGroidAPA PROGRAM 

We give an algorithm for decide if the universal algebra {G, a, /3, fi, l; Go) 
is a Gq- groupoid and for determine the normal subgroupoids of G. This 
algoritm is constituted by the following stages. 

Stage I. We introduce the initial data,see Section 2. 

Stage II. Test if the universal algebra {G,a, P, ij,,l;Go) is a groupoid. 
This stage is composed by five steps; see, Section 2. 

Stage III. Determine the normal subgroupoids ofG. The following steps 
must be executed: 

step 1. Write all nonempty subsets X of G with property that Go ^ X; 
step 2. Determine the normal subgroupoid < X > of G generated by X; 
step 3. Sort by cardinal all normal subgroupoids determined in the step 2; 
step 4. List the normal subgroupoids produced in the above step; 
step 5. For each normal subgroupoid make its subgroupoid table. 

The program BGroidAPA is composed from two modules denoted by 
unitAl.dfm and unitAl.pas. 

The principal program of the module unitiLpas consists from the fol- 
lowing lignes. 



Lignes 


The module unitAl.pas 


001 - 027 


the lignes 001 - 027 of the module unit21.pas; 


028 - 036 


the lignes 029 - 037 of the module unit21.pas; 


037 


ToolButton8: TToolButton; 


038 - 043 


the lignes 038 - 043 of the module unit21.pas; 


044 - 051 


the lignes 045 - 052 of the module unit21.pas; 


052 


procedure Button8Click(Sender: TObject); 


053 - 075 


the lignes 053 - 075 of the module unit21.pas; 


076 


procedure GenerateNormal(t : TSubSet; r : Byte); 


077 - 082 


the lignes 077 - 082 of the module unit21.pas; 


083 


function IsNormal(t : TSubSet) : Boolean; 


084 - 108 


the lignes 083 - 107 of the module unit21.pas; 


109 


end. 



The new procedures and the function "IsNormal" of the module unitAl.pas 
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are presented in the follows. 

procedure TForml.GenerateNormal; 
var 

i : Byte; 

begin 

Cover (t); 
if IsNormal(t) then 

if not AlreadyFound(t) then 
AddSubgroupoid(t) ; 
for i := r to n do 

if not (i in t) then 

if not ForcedStop then 

GenerateNormal(t + [i], i); 

end; 

function TForml.IsNormal; 
var 

i, j : Byte; 

begin 

IsNormal := true; 

for i := 1 to n do if i in t then 

for j := 1 to n do 

if (u_right|j] = uJeft[i]) and (u_right[j] = u_right[i]) then 
if not (h[hp, i], invp]] in t) then begin 
IsNormal := false; 

exit; 
end; 

end; 

procedure TForml.ToolButton8Click(Sender: TObject); 
begin 

nsub := 0; 
ForcedStop := false; 
GenerateNormal (units, m + 1); 
SortByCardinal; 

ListSubgroupoids; 

StatusBar2. SimpleText := tostr(nsub) + ' subgroupoid(s) found.' 

end;. 

We illustrate the utilization of the program BGroidAPA in the following 
cases. 

Example 5.1. (i) Determination of normal subgroupoids of a groupoid 
of type (9; 3). Wc consider the subset -f^(9;3) = Wj\j = 1,9} of the sym- 
metric groupoid §3, where: ipi = ( j ,ip2 = ( \ ,ip3 = ( ^ \ ,ip4 = 
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We denote the restrictions of the structure functions a,P,L and the com- 
position law defined on the groupoid S3 to i^(9;3) by the same symbols. Using 
the correspondence 

K{9;3) = Wl,f2,f3,'P4,V5,V(i,^7,f8,f9} < ^ {1,2,3,4,5,6,7,8,9} 

the input data are given by the following tables: 
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Execute the program BGroidAPA for i^(9;3) and the window program of 
obtained results is presented in the Figure 3. 

Therefore, -f^(9;3) is a groupoid with unit set i^(9;3)^o = WijV2,^3}- 
This groupoid has 5 normal subgroupoids ( see, Fig.3 ). Using the corre- 
spondence between output data and initial data, these normal subgroTipoids 
are the following : iV^l^.g^ = i^(9;3),o, -^(5;3) = Wi,V'2,^3,^4,m}, ^f^-s) = 

{V'l, V2, V3,V'5, V's}, A^(1;.3) = Wl, ^2, ^3, ^7 , ^^g} , ^^(9.3) = ^(9;3)- 

(ii) Applying the program BGroidAP2 for the groupoid i^(9;3) we obtain 
that it has 14 subgroupoids, namely: H^i-i) = {v'l}) -^(^11) — {^2}^ -^fi i) ~ 

{(^3}, = {¥'l,<^2}, i?f2;2) = {<^l>¥'3}, H^{2-2) = {<^2,¥'3}, -^"(3.3) = 

^(9;3),0, 'ff(4;2) = ^^2, 9^4, V^e}, ^f(4;2) = {V'l^ <y^3, fb, fs], ^^(4°2) = {^,^3, 

ip7,^9], H^ls-^ = ijgg) = Ar3.3), ijgg) = ii'g3) = K(9.3). 

(in) Also, applying the program BGroidAPS for -?^(9;3) , we obtain that 
it has 5 wide subgroupoids. We observe that, each wide subgroupoid of this 
groupoid is a normal subgroupoid. .□ 

Example 5.2. (i) Determination of normal subgroupoids of the groupoid 
G(s;2) ■ Use the inputs data presented in the Example 3.2 and execute the pro- 
gram BGroidAP4. This groupoid has the following 5 normal subgroupoids: 

^(2;2) = '^(8;2),0, ^(4;2) = {^1 , ff2 , 53, f/s}, ^(4;2) = {9l, 92, 94, ge} , A^(4;2) = 
{51,32,55,57}, iV(8;2) = <^(8;2)- 

(ii) Determination of normal subgroupoids of the groupoid K4 ]J 3"(4;2) (R-^)- 
Applying the program BGroidAPA for G = K4 ]J 3"(4.2)(R^), wc obtain that 
G has 10 normal subgroupoids, namely: N^^.-^^ = Go, -^(4-3) = {(1), Idox, Idoy, 
'^}' ^(4;3) = {{'^),Idox,Idoy,T}, N^^.^^ = {{!) , Idox , Idoy, a o t} , iV(|.3) = 
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Figure 3: The normal subgroupoids of a (9; 3)— groupoid 



{{l),Idox,Idoy,aox,croy}, N^q.^) = {il),Idox,Idoy,cr,T,a o t}, NJ^.^^ = 

{{l),Idox,Idoy,(T,(TOx,CrOy}, ^(6;3) = {{'^) , Idox, Idoy, T, aQx, CTQy} , ^(6;3) = 

{(1), IdoxJdoy, (JOT, aox, croy}, A^(g°3) = G. □ 
Example 5.3. Determination of subgroups and normal subgroups of a 
finite group. We consider the dihedral group = {xi = e,X2 = a, X3 = 
a^,X4 = a^,X5 = a^,X6 = h,XY = ab,xs = a'^b,xg = a^b, xiq = a^6} gener- 
ated by the elements a, b with properties = e and b^ = e. 
The inputs data for this group are the following: 
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Use the above input data and execute the program BGroidAPA. Then 
-D5 has 3 normal subgroups, namelyiATi = {e},Ar2 = {e,a,a^,a^,a'^} and 
iV3 = D5. 

Applying the program BGroidAP2 or BGroidAP3, we obtain that Dr, 
has 8 subgroups ( in fact, subgroupoids and wide subgroupoids with one 
unit ), namely: Hi = {e},H2 = {e, 6},i?3 = {e,ab},H4 = {e, a^6},i?5 = 
{e,a^b},He = {e,a'^b},H7 = {e,a,a^,a^,a'^}, Hg = .□ 

For more details concerning the programs given in this paper, the reader 
can be inform at e-mail adress: ivan@math.uvt.ro. 
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